home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 15 / macformat_15.iso / Presenting OMO™ / POMO / exhibits / Magazine / backstep.sta (.txt) next >
UltraCard Stack  |  1995-08-03  |  41KB  |  399 lines
  1. CRDHbackstep
  2. backstepSCRP
  3. backstepdata
  4. MOCELL10
  5. Bookshelf
  6. MAGAZINE.STA
  7. BOOKSHELF
  8. Magazine Cover
  9. MAGAZINE.STA
  10. BACKISSUES
  11. Table of Contents
  12. MAGAZINE.STA
  13. CONTENTS
  14. dismissSCRP
  15. on mouseUp
  16.   dismiss
  17. end mouseUp
  18. -- This insertbackstep function takes 4 parameters.
  19. --   Param 1 * The string to display in the pop down list.  Example, "Nancy's New Quotations"
  20. --   Param 2 * This is the stack name that we will navigate to to display this article.
  21. --             Example, "TEMPLATE.STA"
  22. --   Param 3 * This parameter could be one of two things.  It is either the card in the stack
  23. --             to display, or the article to load up for disk.
  24. --   Param 4 * Determines the type of action to take with Param 3.  If we have A, then we know
  25. --             we need to load an article from disk.  Otherwise we have a C and we need to
  26. --             navigate to that card name.  The only parameters we take for this are A or C.
  27. on insertbackstep title, stack, where, wtype
  28.   -- If we have already visited this backstep item, delete it from the current list.
  29.   repeat with i = 1 to the number of rows of card lst "BACKSTEP" of card "BACKSTEP" of stack "BACKSTEP.STA"
  30.     if cell i,1 of card lst "BACKSTEP" of card "BACKSTEP" of stack "BACKSTEP.STA" is title then
  31.       delete row i of cd lst "BACKSTEP" of card "BACKSTEP" of stack "BACKSTEP.STA"
  32.     endif
  33.   end repeat
  34.   -- Create a new empty row at the beginning of our list for our new entry.
  35.   insert row 1 into cd lst "backstep" of card "backstep" of stack "BACKSTEP.STA"
  36.   -- Now insert all our new data.
  37.   put title into cell 1, 1 of cd lst "BACKSTEP" of card "BACKSTEP" of stack "BACKSTEP.STA"
  38.   put stack into cell 1, 2 of cd lst "BACKSTEP" of card "BACKSTEP" of stack "BACKSTEP.STA"
  39.   put where into cell 1, 3 of cd lst "BACKSTEP" of card "BACKSTEP" of stack "BACKSTEP.STA"
  40.   put wtype into cell 1, 4 of cd lst "BACKSTEP" of card "BACKSTEP" of stack "BACKSTEP.STA"
  41.   -- Make sure we don't exceed our maximum number of rows in the backstep.
  42.   if the number of rows of cd lst "BACKSTEP" of card "BACKSTEP" of stack "BACKSTEP.STA" is 11 then
  43.     delete row 11 of cd lst "BACKSTEP" of card "BACKSTEP" of stack "BACKSTEP.STA"
  44.   endif
  45. end insertbackstep
  46. -- Clears our backstep list
  47. on emptybackstep
  48.   put empty into card lst "BACKSTEP" of card "BACKSTEP" of stack "BACKSTEP.STA"
  49. end emptybackstep
  50. -- This navigates to the requested backstep point.  Currently, there are two types: articles and cards.
  51. -- The type of object is in column 4:  An <<A>> or a <<C>>.
  52. --   An article is flagged by a <<A>> and has the article name in the third column and the template name
  53. --      in column 2.
  54. --   A card is flagged by a <<C>> and has the stack name in column 2 and the card in that stack in column 3.
  55. -- Column 1 is the display column that the user sees.
  56. on dobackstep whichrow
  57.   if cell whichrow, 4 of card lst "BACKSTEP" of card "BACKSTEP" of stack "BACKSTEP.STA" is "A" then
  58.     set the lockscreen to true
  59.     put cell whichrow, 3 of card lst "BACKSTEP" of card "BACKSTEP" of stack "BACKSTEP.STA" into whichArticle
  60.     set the hackname of card "page1" of stack "TEMPLATE.STA" to whichArticle
  61.     lock messages
  62.     go to stack "TEMPLATE.STA"
  63.     unlock messages
  64.     send openstack to stack "TEMPLATE.STA"
  65.     set the lockscreen to false
  66.   else if cell whichrow, 4 of card lst "BACKSTEP" of card "BACKSTEP" of stack "BACKSTEP.STA" is "C" then
  67.     -- set the lockscreen to true
  68.     go to card cell whichrow, 3 of card lst "BACKSTEP" of card "BACKSTEP" of stack "BACKSTEP.STA" 
  69.           of stack cell whichrow, 2 of card lst "BACKSTEP" of card "BACKSTEP" of stack "BACKSTEP.STA"
  70.     -- set the lockscreen to false
  71.   endif
  72. end dobackstep
  73. PFONT
  74. AG OLD FACE BOLDOUTLINE
  75. AG OLD FACE OUTLINE
  76. ALBERTUS EXTRA BOLD
  77. ALBERTUS MEDIUM
  78. ANTIQUE OLIVE
  79. APPLE CHANCERY 
  80. ARBITRARYBOLD
  81. ARBITRARYREGULAR
  82. ARCADIA
  83.     ARCADIA A
  84. ARIAL
  85. ARIAL NARROW    
  86. ARIAL ROUNDED MT BOLD
  87. ATHENS
  88. AVANT GARDE
  89. B COURIER BOLD
  90. B FUTURA BOLD
  91. B GARAMOND 3 BOLD
  92. B GARAMOND BOLD
  93. B HELVETICA BOLD
  94. B ITCKABEL BOLD
  95. B KORINNA BOLDp
  96. B MEMPHIS BOLD
  97. B ORCGARAM BOLD
  98. B TIMES BOLD
  99. BAUHAUS 93 
  100. BAUHAUS BOLD
  101. BAUHAUS DEMI    
  102. BAUHAUS HEAVY|p
  103. BAUHAUS LIGHT
  104. BAUHAUS MEDIUM
  105. BELLEVUE#
  106. BI COURIER BOLDOBLIQUE
  107. BI GARAMOND 3 BOLDITALIC
  108. BI GARAMOND BOLDITALICp
  109. BI HELVETICA BOLDOBLIQUE
  110. BI KORINNA KURSIVBOLD
  111. BI MEMPHIS BOLDITALIC|p
  112. BI ORCGARAM BOLDITALIC
  113. BI TIMES BOLDITALIC
  114. BIGCHEESEDARK
  115. BIGCHEESELIGHT 
  116. BIRCH|p
  117. BISTECKBOLD
  118. BK ITCKABEL BOOK
  119. BLACKOAK#
  120. BO FUTURA BOLDOBLIQUE
  121. BODONI BD BT#
  122. BODONI BDIT BT 
  123.     BODONI BT
  124. BODONI IT BT    |p
  125. BOOK ANTIQUA
  126. BOOKMAN
  127. BOOKMAN OLD STYLE BOLD
  128. BRAGGADOCIO
  129. BRITANNIC BOLD
  130. BRUSH SCRIPT    
  131. BRUSH SCRIPT MT
  132. C FUTURA CONDENSEDp
  133. C HELVETICA CONDENSED
  134. C UNIVERS 57 CONDENSED
  135. CAIRO
  136. CARTA|p
  137. CASLON OPEN FACE    |p
  138. CASTELLAR MT
  139. CB FUTURA CONDENSEDBOLD
  140. CB HELVETICA CONDENSED BOLD
  141. CB UNIVERS 67 CONDENSEDBOLD
  142. CBI HELVETICA CONDENSED BOLDOBL
  143. CBO FUTURA CONDBOLDOBLIQUE'
  144. CBO UNIVERS 67 CONDBOLDOBLA
  145. CENTURY GOTHIC
  146. CETAN
  147. CG OMEGA    
  148. CG TIMESAMO
  149. CHICAGO
  150. CI HELVETICA CONDENSED OBLIQUEO
  151.     CITY BOLD
  152. CITY BOLD ITALIC
  153. CITY MEDIUM
  154. CITY MEDIUM ITALIC 
  155. CL FUTURA CONDENSEDLIGHT
  156. CL HELVETICA CONDENSED LIGHT    |p
  157. CL UNIVERS 47 CONDENSEDLIGHT
  158. CLARENDON CONDENSED
  159.     CLAUSTRUM S
  160. CLB HELVETICA CONDENSED BLACK|p
  161. CLBI HELVETICA CONDENSED BLACKO
  162. CLI HELVETICA CONDENSED LIGHTOB
  163. CLO FUTURA CONDLIGHTOBLIQUE
  164. CLO UNIVERS 47 CONDLIGHTOBL
  165. CO FUTURA CONDENSEDOBLIQUEp
  166. CO UNIVERS 57 CONDOBLIQUE
  167. COLONNA MT
  168. COMMERCIALPI BT
  169. COPPERPLATE32AB
  170. COPPERPLATE32BC
  171. COPPERPLATE33BC
  172. CORONET
  173. COURIER
  174. COURIER NEW
  175.     CRINOLINE
  176. CRITTER
  177. CUTOUTp
  178. CXB FUTURA CONDEXTRABOLDBE 
  179. CXBO FUTURA CONDEXTRABOLDOBLIQU
  180. D ITCKABEL DEMI
  181. DEROON
  182.     DESDEMONAMI
  183. DEWEESE
  184. DORCHESTER SCRIPT MT
  185.     ESPY SANS
  186. ESPY SANS BOLD
  187. ESPY SERIFp
  188. ESPY SERIF BOLD
  189. EVANGEL
  190. EWORLD TIGHT
  191. FIXEDSYS    
  192. FOOTLIGHT MT LIGHT
  193. FRANKLINGOTHICp
  194. FRGOTHHEAVY
  195.     FTPVT8VGA
  196. FTPVTEGA
  197.     FTPVTSVGA|p
  198. FTPVTVGAN M
  199. FUTURA 
  200. FUTURA BD BT
  201. FUTURA BDIT BT
  202. FUTURA BK BT    |p
  203. FUTURA BKIT BT
  204. FUTURA BOOK
  205. FUTURA MD BT#
  206. FUTURA MDIT BT 
  207. GARAMOND    
  208. GARAMOND 3 
  209. GAUTANE
  210. GENEVA
  211. GENEVA
  212. GIDDYUP
  213. GIDDYUP THANGS
  214. GILLSANS    |p
  215. GILLSANS BOLD
  216. GILLSANS BOLDITALIC
  217. GILLSANS CONDENSED
  218. GILLSANS EXTRABOLDE
  219. GILLSANS ITALIC
  220. GILLSANS ULTRABOLDR
  221. GOUDY TEXT MT9
  222. H FUTURA HEAVY
  223.     HELVETICA
  224. HELVETICAINSERAT ROMAN 
  225. HO FUTURA HEAVYOBLIQUE
  226. HOEFLER TEXT
  227. HOEFLER TEXT ORNAMENTS
  228. I COURIER OBLIQUE
  229. I GARAMOND 3 ITALIC
  230. I GARAMOND LIGHTITALIC 
  231. I HELVETICA OBLIQUE
  232. I KORINNA KURSIVREGULAR
  233. I ORCGARAM LIGHTITALIC
  234. I TIMES ITALIC
  235. IMAGO EXTRA BOLDUTU
  236. IMAGO EXTRABOLD
  237. IMPACT
  238. IMPRESS BTp
  239. INDUSTRIA INLINE    |p
  240. INDUSTRIA INLINEA|p
  241. INDUSTRIA SOLID
  242. INDUSTRIA SOLIDA
  243.     INVISIBLEUE
  244. ISADORA BOLD#
  245. ISADORA REGULAR
  246. ITC OFFICINA SANS BOLD
  247. ITC OFFICINA SANS BOLDITALIC
  248. ITC OFFICINA SANS BOOKp
  249. ITC OFFICINA SANS BOOKITALIC
  250. ITC OFFICINA SERIF BOLD
  251. ITC OFFICINA SERIF BOLDITALIC
  252. ITC OFFICINA SERIF BOOK
  253. ITC OFFICINA SERIF BOOKITALICIN
  254. ITCBENGUIATGOTHIC BOLDp
  255. ITCBENGUIATGOTHIC BOLDOBLIQUE
  256. ITCBENGUIATGOTHIC BOOKp
  257. ITCBENGUIATGOTHIC BOOKOBLIQUEP
  258. ITCBENGUIATGOTHIC HEAVY
  259. ITCBENGUIATGOTHIC HEAVYOBLIQUEN
  260. ITCBENGUIATGOTHIC MEDIUM
  261. ITCBENGUIATGOTHIC MEDIUMOBLIQUE
  262. JACQUARDTS
  263. JUNIPER
  264. KINO MT
  265. KORINNA
  266. KUENSTLERSCRIPT MEDIUM    
  267. KUENSTLERSCRIPT TWOBOLD
  268. L FUTURA LIGHTN
  269. L MEMPHIS LIGHT
  270. L UNIVERS 45 LIGHTC
  271. LETTER GOTHIC
  272. LETTERGOTHIC
  273. LITHOS REGULAR
  274. LO FUTURA LIGHTOBLIQUE 
  275. LONDONp
  276. LOS ANGELES
  277. M ITCKABEL MEDIUMOE
  278. M MEMPHIS MEDIUM
  279. MADRONE
  280. MARIGOLD    
  281. MATURA MT SCRIPT CAPITALS
  282. MI MEMPHIS MEDIUMITALIC
  283. MINION ORNAMENTS#
  284. MISTRAL
  285. MOBILE
  286. MODULASERIFBOLD
  287. MONACO
  288. MONOTYPE SORTS
  289. MS LINEDRAW
  290. MS SERIF
  291. MYRIAD HEADLINE
  292. MYRIAD SKETCH
  293. MYRIAD TILT
  294. MYTHOSM
  295. N HELVETICA NARROWK
  296. NEW CENTURY SCHLBK
  297. NEW YORK#
  298. NUPTIALSCRIPT
  299. O FUTURA BOOKOBLIQUE#
  300. O FUTURA OBLIQUE#
  301. OCR-A
  302. ORCGARAM50 
  303. PALATINOOMM
  304. PALEX
  305.     PEPITA MT|p
  306. PLAYBILLTEK
  307. POETICA CHANCERYII
  308. POETICA SUPPORNAMENTS
  309.     PONDEROSA
  310. POPLAR
  311. PROFONT
  312. QUAKE
  313.     QUICKTYPE
  314. QUICKTYPE CONDENSED
  315. QUICKTYPE MONO
  316. QUICKTYPE PI    |p
  317. REVUE
  318. RIBBN131 AS
  319. RIBBON131 BD BT
  320. ROSEWOOD FILLCN
  321. ROSEWOOD REGULAR 60
  322. RUNIC MT CN
  323. SAN FRANCISCO
  324. SENATORDEMI
  325. SENATORTHIN
  326. SENATORULTRA
  327. SHELLEY ALLEGRO SCRIPT*
  328. SHELLEY ANDANTE SCRIPT
  329. SHELLEY VOLANTE SCRIPTp
  330. SIDDURENGLISHLD
  331. SKIA#
  332. SMALL FONTS
  333. SNELL BT    |p
  334. STENCIL
  335. STUDZ
  336. SYMBOL
  337. TAXTYPE
  338. TAXTYPE MONO
  339. TAXTYPE PI
  340. TAXTYPECONDENSED    
  341. TEKTON
  342. TEKTON BOLD
  343. TEKTON PLUS REGULAR
  344. TIMES
  345. TIMES NEW ROMAN
  346. TIMESNEWROMANPS
  347. TOOLBOX
  348. TORONTO
  349. TRAJAN
  350. TRAJAN BOLD
  351. U ITCKABEL ULTRA#
  352. UNIVERS
  353. UNIVERS 45 LIGHT    
  354. UNIVERS 45 LIGHTOBLIQUE
  355. UNIVERS 47 CONDENSEDLIGHT
  356. UNIVERS 47 CONDENSEDLIGHTOBLIQU
  357. UNIVERS 55
  358. UNIVERS 55 OBLIQUE
  359. UNIVERS 57 CONDENSED
  360. UNIVERS 57 CONDENSEDOBLIQUE
  361. UNIVERS 65 BOLD
  362. UNIVERS 65 BOLDOBLIQUEp
  363. UNIVERS 67 CONDENSEDBOLD
  364. UNIVERS 67 CONDENSEDBOLDOBLIQUE
  365. UNIVERS 75 BLACK
  366. UNIVERS 75 BLACKOBLIQUE
  367. UNIVERS CONDENSED
  368. UNIVERSITY ROMAN
  369. UTOPIA HEADLINE
  370. VENICE
  371. VIVALDI
  372. VOYAGER
  373. WIDE LATIN
  374. WILLOW
  375.     WINGDINGSZ[
  376. WOODTYPE ORNAMENTS 2
  377. XB FUTURA EXTRABOLD
  378. XB MEMPHIS EXTRABOLD
  379. XBO FUTURA EXTRABOLDOBLIQUE
  380. YONKERS
  381. ZAPF CHANCERY
  382. ZAPF DINGBATS|p
  383. ZAPFHUMNST BD BT    |p
  384. ZAPFHUMNST BDIT BTp
  385. ZAPFHUMNST BT
  386. ZAPFHUMNST IT BT
  387. ZAPFHUMNST ULT BTD
  388. ZAPFHUMNST ULTIT BT
  389. ZURICH BD BTiH#
  390. ZURICH BDIT BT
  391. ZURICH BDXCN BT
  392. ZURICH BLK BT
  393. ZURICH BLKIT BT
  394.     ZURICH BT|p
  395. ZURICH IT BT
  396. ZURICH LTXCN BT
  397. ZURICH XCN BT
  398. iIDMO
  399.